home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / programs / lotus / lotus001.dsk / AUTOCAL.SMM < prev    next >
Encoding:
INI File  |  1994-08-11  |  33.7 KB  |  2,160 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     jmacro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     SHIFTJIS (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     HP LaserJet IIISi
  13. [port]
  14.     LPT2:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     ╠¿░┘─▐1
  19.     ╠¿░┘─▐2
  20.     ╠¿░┘─▐3
  21.     ╠¿░┘─▐4
  22.     ╠¿░┘─▐5
  23.     ╠¿░┘─▐6
  24.     ╠¿░┘─▐7
  25.     ╠¿░┘─▐8
  26. [desc]
  27.     1╣îÄò¬é╠╢┌▌└▐é╠Ä⌐ô«ì∞ɼ(jcalmon.styé⌐éτÄ└ìs)
  28.     
  29.     
  30.     
  31.     
  32.     775421678
  33.     185
  34.     677005541
  35.     71584722
  36.     8
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     0
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53. [lnopts]
  54.     3
  55.     Body Text
  56.     1
  57. [docopts]
  58.     5
  59.     2
  60. [GramStyle]
  61.     
  62. [lay]
  63.     Standard
  64.     513
  65.     [rght]
  66.         15840
  67.         12240
  68.         1
  69.         1440
  70.         1440
  71.         1
  72.         1440
  73.         1440
  74.         0
  75.         1
  76.         0
  77.         1
  78.         0
  79.         2
  80.         1
  81.         1440
  82.         10800
  83.         4
  84.         1
  85.         720
  86.         1
  87.         1440
  88.         1
  89.         2160
  90.         1
  91.         2880
  92.     [hrght]
  93.     [lyfrm]
  94.         1
  95.         11200
  96.         0
  97.         0
  98.         12240
  99.         1440
  100.         0
  101.         1
  102.         3
  103.         1 0 0 0 0 0 0
  104.         0
  105.         0
  106.         1
  107.     [frmlay]
  108.         1440
  109.         12240
  110.         1
  111.         1440
  112.         72
  113.         1
  114.         792
  115.         1440
  116.         0
  117.         1
  118.         0
  119.         1
  120.         1
  121.         0
  122.         1
  123.         1440
  124.         10800
  125.         0
  126.     [txt]
  127. @âëâxâï@Creator: Powell H. Smith
  128.  
  129. @âëâxâï@<:R1,1,3,9270,>Date of Creation: 06/22/91    Release 7M
  130.  
  131. >
  132.     [frght]
  133.     [lyfrm]
  134.         1
  135.         13248
  136.         0
  137.         14400
  138.         12240
  139.         15840
  140.         0
  141.         1
  142.         3
  143.         1 0 0 0 0 0 0
  144.         0
  145.         0
  146.         2
  147.     [frmlay]
  148.         15840
  149.         12240
  150.         1
  151.         1440
  152.         792
  153.         1
  154.         14472
  155.         1440
  156.         0
  157.         1
  158.         0
  159.         1
  160.         1
  161.         0
  162.         1
  163.         1440
  164.         10800
  165.         0
  166.     [txt]
  167. >
  168. [elay]
  169. [l1]
  170.     0
  171. [pg]
  172.     8
  173.     50 0 41 0 0 0 0 65535 27 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  174.     103 0 59 0 0 0 0 65535 24 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  175.     156 0 24 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  176.     207 0 19 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  177.     259 11 92 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  178.     312 0 14 0 0 0 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  179.     364 30 25 0 0 1 0 65535 2 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  180.     373 0 0 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  181. [edoc]
  182. <:f,1û╛Æ⌐,>'ATTENTION : If you change the name of the calendar style sheet, _calmon.sty, you must change the blue text on this page to the new  name you have chosen. 
  183.  
  184. <:f160,1û╛Æ⌐,194,0,0>'WARNING : If you modify the contents in JCALMON.STY, this macro may not function properly!
  185.  
  186. <:f,1û╛Æ⌐,>
  187.  
  188. @╠º▌╕╝«▌@<:f,1û╛Æ⌐,>FUNCTION AutoCal()
  189.  
  190. <:f,1û╛Æ⌐,>'Declaration of Variables
  191.  
  192. <:f,1û╛Æ⌐,>DEFSTR Month1   <:f160,1û╛Æ⌐,255,0,0>'This variable contains the month direct from the dialog box.
  193.  
  194. <:f,1û╛Æ⌐,>DEFSTR Year1  <:f160,1û╛Æ⌐,255,0,0> 'This variable contains the year direct from dialog box (YYYY).
  195.  
  196. <:f,1û╛Æ⌐,>DEFSTR LMonth  <:f160,1û╛Æ⌐,255,0,0> 'This variable contains the calendar month in lower case.
  197.  
  198. <:f,1û╛Æ⌐,>DEFSTR Stat1   <:f160,1û╛Æ⌐,255,0,0>'This variable checks for Cancel from dialog box.
  199.  
  200. <:f,1û╛Æ⌐,>DEFSTR FirstDayWeek  <:f160,1û╛Æ⌐,255,0,0> 'This contains the Value of the day of the week the month starts on.
  201.  
  202. <:f,1û╛Æ⌐,>DEFSTR LastDay  <:f160,1û╛Æ⌐,255,0,0>'This contains the value of the number of days in current month.
  203.  
  204. <:f,1û╛Æ⌐,>DEFSTR ChkLen  <:f160,1û╛Æ⌐,255,0,0>'This contains the value representing the number of characters in the year that was typed in Heymon.
  205.  
  206. <:f,1û╛Æ⌐,>DEFSTR CurStyleSheet  <:f160,1û╛Æ⌐,255,0,0>'This contains the style sheet for the current dicument
  207.  
  208. <:f,1û╛Æ⌐,>DEFSTR CurDocName <:f160,1û╛Æ⌐,255,0,0> 'This contains the name of the current document.
  209.  
  210. <:f,1û╛Æ⌐,>DEFSTR TotalWindows  <:f160,1û╛Æ⌐,255,0,0>'This contains the number of MDI windows open when starting macro.
  211.  
  212. <:f,1û╛Æ⌐,>DEFSTR yy
  213.  
  214. <:f,1û╛Æ⌐,>'Declaration of Functions.
  215.  
  216. <:f,1û╛Æ⌐,>DECLARE BuildDate(M,Y,N)
  217.  
  218. <:f,1û╛Æ⌐,>DECLARE FillCalendar(F,L,M,Y)
  219.  
  220. <:f,1û╛Æ⌐,>DECLARE CheckLeap(Y)
  221.  
  222. <:f,1û╛Æ⌐,>DECLARE AdjustTable()
  223.  
  224. <:f,1û╛Æ⌐,>DECLARE ChkHoliday(M,D,X,Y)
  225.  
  226. <:f,1û╛Æ⌐,>SingleStep(0)
  227.  
  228. <:f,1û╛Æ⌐,>NW=IsNewWave()
  229.  
  230. <:f,1û╛Æ⌐,>IF NW = 0
  231.  
  232. <:f,1û╛Æ⌐,>    <:f200,1û╛Æ⌐,255,0,0>'Check for no windows open.
  233.  
  234. <:f,1û╛Æ⌐,>    TotalWindows = GetOpenfileCount()
  235.  
  236. <:f,1û╛Æ⌐,>    IF TotalWindows = 0
  237.  
  238. <:f,1û╛Æ⌐,>        Message("<:f,1û╛Æ⌐,>âtâ@âCâïâüâjâàü[é╠ÉVïKì∞ɼé┼JCALMON.STYé≡æIé╘é╞é▒é╠â}âNâìé¬Ä└ìsé│éΩé▄é╖é╠é┼üAé╗é┐éτé≡Ägùpé╡é─é¡é╛é│éó")  
  239.  
  240. <:f,1û╛Æ⌐,>        EXIT FUNCTION
  241.  
  242. <:f,1û╛Æ⌐,>    ENDIF
  243.  
  244. <:f,1û╛Æ⌐,>    'Check for error in running macro.
  245.  
  246. <:f,1û╛Æ⌐,>    CurDocName = GetDocInfo$(1)
  247.  
  248. <:f,1û╛Æ⌐,>    CurStyleSheet = GetDocInfo$(3)
  249.  
  250. <:f,1û╛Æ⌐,>    IF CurDocName <<<;> "(<:f,1û╛Æ⌐,>ÉVïKò╢Åæ)" OR CurStyleSheet <<<;> "<:f160,1û╛Æ⌐,0,0,255>JCALMON.STY<:f,1û╛Æ⌐,>"
  251.  
  252. <:f,1û╛Æ⌐,>        Message("<:f,1û╛Æ⌐,>âtâ@âCâïâüâjâàü[é╠ÉVïKì∞ɼé┼JCALMON.STYé≡æIé╘é╞é▒é╠â}âNâìé¬Ä└ìsé│éΩé▄é╖é╠é┼üAé╗é┐éτé≡Ägùpé╡é─é¡é╛é│éó")  
  253.  
  254. <:f,1û╛Æ⌐,>        EXIT FUNCTION
  255.  
  256. <:f,1û╛Æ⌐,>    ENDIF
  257.  
  258. <:f,1û╛Æ⌐,>ENDIF
  259.  
  260. <:f,1û╛Æ⌐,>'Fill Edit boxes with current Month and Year.
  261.  
  262. <:f,1û╛Æ⌐,>Month1 = StrField$(FormatDate$(Now(),"S"),1,"<:f,1û╛Æ⌐,>îÄ")
  263.  
  264. <:f,1û╛Æ⌐,>FillEdit(9500,StrCat$(Month1,"<:f,1û╛Æ⌐,>îÄ"))
  265.  
  266. <:f,1û╛Æ⌐,>FillEdit(9501,StrField$(FormatDate$(Now(),"c"),3," "))
  267.  
  268. <:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éPîÄ")
  269.  
  270. <:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éQîÄ")
  271.  
  272. <:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éRîÄ")
  273.  
  274. <:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éSîÄ")
  275.  
  276. <:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éTîÄ")
  277.  
  278. <:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éUîÄ")
  279.  
  280. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éVîÄ")
  281.  
  282. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éWîÄ")
  283.  
  284. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éXîÄ")
  285.  
  286. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éPéOîÄ")
  287.  
  288. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éPéPîÄ")
  289.  
  290. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>éPéQîÄ")
  291.  
  292. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>January")
  293.  
  294. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>February")
  295.  
  296. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>March")
  297.  
  298. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>April")
  299.  
  300. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>May")
  301.  
  302. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>June")
  303.  
  304. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>July")
  305.  
  306. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>August")
  307.  
  308. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>September")
  309.  
  310. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>October")
  311.  
  312. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>November")
  313.  
  314. <:#242,9360><:f,1û╛Æ⌐,>FillEdit(9500,"<:f,1û╛Æ⌐,>December")
  315.  
  316. <:#242,9360><:f,1û╛Æ⌐,>FOR  yy = 1980  TO  2010
  317.  
  318. <:#242,9360><:f,1û╛Æ⌐,>    FillEdit(9501,"{yy}")
  319.  
  320. <:#242,9360><:f,1û╛Æ⌐,>NEXT
  321.  
  322. <:#242,9360><:f,1û╛Æ⌐,>LayoutMode()
  323.  
  324. <:#242,9360><:f,1û╛Æ⌐,>FullPageView()
  325.  
  326. <:#242,9360><:f,1û╛Æ⌐,>TryAgain:
  327.  
  328. <:#242,9360><:f,1û╛Æ⌐,>'Call Dialog box for data entry and get data from edit boxes.
  329.  
  330. <:#242,9360><:f,1û╛Æ⌐,>Stat1=DialogBox("." "Heymon")
  331.  
  332. <:#242,9360><:f,1û╛Æ⌐,>Month1=GetDialogField$(9500)
  333.  
  334. <:#242,9360><:f,1û╛Æ⌐,>Year1=GetDialogField$(9501)
  335.  
  336. <:#242,9360><:f,1û╛Æ⌐,>'Check for Cancel.
  337.  
  338. <:#242,9360><:f,1û╛Æ⌐,>IF Stat1=0
  339.  
  340. <:#242,9360><:f,1û╛Æ⌐,>    EXIT FUNCTION
  341.  
  342. <:#242,9360><:f,1û╛Æ⌐,>ENDIF
  343.  
  344. <:#242,9360><:f,1û╛Æ⌐,>'Check for error in entry.
  345.  
  346. <:#242,9360><:f,1û╛Æ⌐,>IF Year1 << 1980 OR Year1 <;> 2010
  347.  
  348. <:#242,9360><:f,1û╛Æ⌐,>    Message("<:f,1û╛Æ⌐,>öNé═1980öNé⌐éτ2010öNé╠ö═ê═é┼é╚é¡é─é═é╚éΦé▄é╣é±")
  349.  
  350. <:#242,9360><:f,1û╛Æ⌐,>    FillEdit(9500,Month1)
  351.  
  352. <:#242,9360><:f,1û╛Æ⌐,>    FillEdit(9501,Year1)
  353.  
  354. <:#242,9360><:f,1û╛Æ⌐,>    GOTO TryAgain
  355.  
  356. <:#242,9360><:f,1û╛Æ⌐,>ENDIF
  357.  
  358. <:#242,9360><:f,1û╛Æ⌐,>ChkLen = LEN(Year1)
  359.  
  360. <:#242,9360><:f,1û╛Æ⌐,>IF ChkLen<<<;>4
  361.  
  362. <:#242,9360><:f,1û╛Æ⌐,>    Message("<:f,1û╛Æ⌐,>öNé═É╝ù∩é┼éSîàôⁿù═é╡é─é¡é╛é│éóüB(ùßü@'1991')")
  363.  
  364. <:#242,9360><:f,1û╛Æ⌐,>    FillEdit(9500,Month1)
  365.  
  366. <:#242,9360><:f,1û╛Æ⌐,>    FillEdit(9501,Year1)
  367.  
  368. <:#242,9360><:f,1û╛Æ⌐,>    GOTO TryAgain
  369.  
  370. <:#242,9360><:f,1û╛Æ⌐,>'ELSEIF Year1<<1980 OR Year1<;>1999
  371.  
  372. <:#242,9360><:f,1û╛Æ⌐,>    Message("Year must be in a range from 1980 to 1999.")
  373.  
  374. <:#242,9360><:f,1û╛Æ⌐,>    FillEdit(9500,Month1)
  375.  
  376. <:#242,9360><:f,1û╛Æ⌐,>    FillEdit(9501,Year1)
  377.  
  378. <:#242,9360><:f,1û╛Æ⌐,>    GOTO TryAgain
  379.  
  380. <:#242,9360><:f,1û╛Æ⌐,>ENDIF
  381.  
  382. <:#242,9360><:f,1û╛Æ⌐,>'Convert month to lower case and process.
  383.  
  384. <:#242,9360><:f,1û╛Æ⌐,>LMonth=LCase$(Month1)
  385.  
  386. <:f,1û╛Æ⌐,>IF LMonth= "<:f,1û╛Æ⌐,>january" OR LMonth = "éPîÄ"
  387.  
  388. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=31
  389.  
  390. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,1)
  391.  
  392. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,1,Year1)
  393.  
  394. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>february" OR LMonth = "éQîÄ"
  395.  
  396. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=CheckLeap(Year1)
  397.  
  398. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,2)
  399.  
  400. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,2,Year1)
  401.  
  402. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>march" OR LMonth = "éRîÄ"
  403.  
  404. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=31
  405.  
  406. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,3)
  407.  
  408. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,3,Year1)
  409.  
  410. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>april" OR LMonth = "éSîÄ"
  411.  
  412. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=30
  413.  
  414. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,4)
  415.  
  416. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,4,Year1)
  417.  
  418. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>may" OR LMonth = "éTîÄ"
  419.  
  420. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=31
  421.  
  422. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,5)
  423.  
  424. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,5,Year1)
  425.  
  426. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>june" OR LMonth = "éUîÄ"
  427.  
  428. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=30
  429.  
  430. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,6)
  431.  
  432. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,6,Year1)
  433.  
  434. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>july" OR LMonth = "éVîÄ"
  435.  
  436. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=31
  437.  
  438. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,7)
  439.  
  440. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,7,Year1)
  441.  
  442. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>august" OR LMonth = "éWîÄ"
  443.  
  444. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=31
  445.  
  446. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,8)
  447.  
  448. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,8,Year1)
  449.  
  450. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>september" OR LMonth = "éXîÄ"
  451.  
  452. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=30
  453.  
  454. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,9)
  455.  
  456. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,9,Year1)
  457.  
  458. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>october" OR LMonth = "éPéOîÄ"
  459.  
  460. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=31
  461.  
  462. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,10)
  463.  
  464. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,10,Year1)
  465.  
  466. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>november" OR LMonth = "éPéPîÄ"
  467.  
  468. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=30
  469.  
  470. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,11)
  471.  
  472. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,11,Year1)
  473.  
  474. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF LMonth= "<:f,1û╛Æ⌐,>december" OR LMonth = "éPéQîÄ"
  475.  
  476. <:#242,9360><:f,1û╛Æ⌐,>    LastDay=31
  477.  
  478. <:#242,9360><:f,1û╛Æ⌐,>    FirstDayWeek=BuildDate(Month1,Year1,12)
  479.  
  480. <:#242,9360><:f,1û╛Æ⌐,>    FillCalendar(FirstDayWeek,LastDay,12,Year1)
  481.  
  482. <:#242,9360><:f,1û╛Æ⌐,>'Check for error in Month entry
  483.  
  484. <:#242,9360><:f,1û╛Æ⌐,>ELSE 
  485.  
  486. <:#242,9360><:f,1û╛Æ⌐,>    Message ("<:f,1û╛Æ⌐,>îÄé¬ùLî°é┼é═éáéΦé▄é╣é±üBì─ôⁿù═é╡é─é¡é╛é│éóüB")
  487.  
  488. <:#242,9360><:f,1û╛Æ⌐,>    FillEdit(9500,Month1)
  489.  
  490. <:#242,9360><:f,1û╛Æ⌐,>    FillEdit(9501,Year1)
  491.  
  492. <:f,1û╛Æ⌐,>    GOTO TryAgain
  493.  
  494. <:#242,9360><:f,1û╛Æ⌐,>ENDIF
  495.  
  496. <:#242,9360><:f,1û╛Æ⌐,>
  497.  
  498. <:#242,9360><:f,1û╛Æ⌐,>END FUNCTION
  499.  
  500. <:#242,9360><:f,1û╛Æ⌐,>
  501.  
  502. @╠º▌╕╝«▌@<:#242,9360><:f,1û╛Æ⌐,>Function BuildDate(Month1,Year1,NMonth)
  503.  
  504. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR TYear
  505.  
  506. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR NDate
  507.  
  508. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR WDate
  509.  
  510. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR NumLeap
  511.  
  512. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR i
  513.  
  514. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR FebDay
  515.  
  516. <:#242,9360><:f,1û╛Æ⌐,>
  517.  
  518. <:#242,9360><:f,1û╛Æ⌐,>TYear = Year1 - 1980 + 3
  519.  
  520. <:#242,9360><:f,1û╛Æ⌐,>NumLeap = (TYear - MOD(TYear,4)) / 4
  521.  
  522. <:#242,9360><:f,1û╛Æ⌐,>NDate = (Year1 - 1980) * 365 * 86400 +         ' Total sec  from 1980 to Year1
  523.  
  524. <:#484,9360><:f,1û╛Æ⌐,>         (NumLeap * 86400) +          ' Additional sec for Leap Year that from 1980 to Year1
  525.  
  526. <:#242,9360><:f,1û╛Æ⌐,>        315532800 +                         ' Total sec from 1970 to 1979
  527.  
  528. <:#484,9360><:f,1û╛Æ⌐,>        (9 * 3600)                               ' Additional sec for japanese time zone
  529.  
  530. <:#242,9360><:f,1û╛Æ⌐,>IF  NMonth <;> 1
  531.  
  532. <:#242,9360><:f,1û╛Æ⌐,>    FOR  i = 1  TO  (NMonth - 1)
  533.  
  534. <:#242,9360><:f,1û╛Æ⌐,>        IF  i = 4  OR  i = 6  OR  i = 9  OR  i = 11
  535.  
  536. <:#242,9360><:f,1û╛Æ⌐,>            NDate = NDate + 30 * 86400
  537.  
  538. <:#242,9360><:f,1û╛Æ⌐,>        ELSEIF  i = 2
  539.  
  540. <:#242,9360><:f,1û╛Æ⌐,>            FebDay = CheckLeap(Year1)
  541.  
  542. <:#242,9360><:f,1û╛Æ⌐,>            NDate = NDate + FebDay * 86400
  543.  
  544. <:#242,9360><:f,1û╛Æ⌐,>        ELSE
  545.  
  546. <:#242,9360><:f,1û╛Æ⌐,>            NDate = NDate + 31 * 86400
  547.  
  548. <:#242,9360><:f,1û╛Æ⌐,>        ENDIF
  549.  
  550. <:#242,9360><:f,1û╛Æ⌐,>    NEXT
  551.  
  552. <:#242,9360><:f,1û╛Æ⌐,>ENDIF
  553.  
  554. <:#242,9360><:f,1û╛Æ⌐,>WDate=FormatDate$(NDate,"f")
  555.  
  556. <:#242,9360><:f,1û╛Æ⌐,>BuildDate=StrField$(WDate,1," ")
  557.  
  558. <:#239,9360><:f,1û╛Æ⌐,>Type("<[>CtrlHome]<:f><:f,1û╛Æ⌐,>{Year1}<[>Right<:f><:f,1û╛Æ⌐,>]<:f><:f,1û╛Æ⌐,>{Month1}<[>Right<:f><:f,1û╛Æ⌐,>]{Year1}<:f><:f,1û╛Æ⌐,>")<:f>
  559.  
  560. <:#242,9360><:f,1û╛Æ⌐,>IF Right$(Month1,2) = "<:f,1û╛Æ⌐,>îÄ"
  561.  
  562. <:#242,9360><:f,1û╛Æ⌐,>    Type("<[>CTRLHome]<[>Down]<:f,1û╛Æ⌐,>ô·ùjô·<[>Tab]îÄùjô·<[>Tab]ë╬ùjô·<[>Tab]Éàùjô·")
  563.  
  564. <:#242,9360><:f,1û╛Æ⌐,>    Type("<[>Tab]û╪ùjô·<[>Tab]ïαùjô·<[>Tab]ôyùjô·")
  565.  
  566. <:#242,9360><:f,1û╛Æ⌐,>ELSE
  567.  
  568. <:#242,9360><:f,1û╛Æ⌐,>    Type("<[>CTRLHome]<[>Down]Sunday<[>Tab]Monday<[>Tab]Tuesday<[>Tab]Wednesday")
  569.  
  570. <:#242,9360><:f,1û╛Æ⌐,>    Type("<[>Tab]Thursday<[>Tab]Friday<[>Tab]Saturday")
  571.  
  572. <:#242,9360><:f,1û╛Æ⌐,>ENDIF
  573.  
  574. <:#242,9360><:f,1û╛Æ⌐,>END FUNCTION
  575.  
  576. <:#242,9360><:f,1û╛Æ⌐,>
  577.  
  578. @╠º▌╕╝«▌@<:#242,9360><:f,1û╛Æ⌐,>FUNCTION FillCalendar(FirstDayWeek,LastDay,TMon,Year1)
  579.  
  580. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR DayNum
  581.  
  582. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR Column
  583.  
  584. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR Row
  585.  
  586. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR Row2
  587.  
  588. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR Row3
  589.  
  590. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR R1
  591.  
  592. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR R2
  593.  
  594. <:f,1û╛Æ⌐,>DEFSTR R3
  595.  
  596. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR R4
  597.  
  598. <:#242,9360><:f,1û╛Æ⌐,>Type( "<[>CTRLHome]<[>Down]<[>Down]<[>Right]" )
  599.  
  600. <:#242,9360><:f,1û╛Æ⌐,>DayNum=1
  601.  
  602. <:#242,9360><:f,1û╛Æ⌐,>IF FirstDayWeek="<:f,1û╛Æ⌐,>Sunday"
  603.  
  604. <:#242,9360><:f,1û╛Æ⌐,>    FOR R1=1 TO 6
  605.  
  606. <:#242,9360><:f,1û╛Æ⌐,>        IF R1=2
  607.  
  608. <:#242,9360><:f,1û╛Æ⌐,>            ChkHoliday(TMon,DayNum,1,Year1)
  609.  
  610. <:#242,9360><:f,1û╛Æ⌐,>        ELSE
  611.  
  612. <:#242,9360><:f,1û╛Æ⌐,>            ChkHoliday(TMon,DayNum,0,Year1)
  613.  
  614. <:#242,9360><:f,1û╛Æ⌐,>        ENDIF
  615.  
  616. <:#242,9360><:f,1û╛Æ⌐,>        Type("{DayNum}<[>Right]<[>Right]")
  617.  
  618. <:#242,9360><:f,1û╛Æ⌐,>        DayNum=DayNum + 1
  619.  
  620. <:#242,9360><:f,1û╛Æ⌐,>    NEXT
  621.  
  622. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF FirstDayWeek="<:f,1û╛Æ⌐,>Monday"
  623.  
  624. <:#242,9360><:f,1û╛Æ⌐,>    Type("<[>Right]<[>Right]")
  625.  
  626. <:#242,9360><:f,1û╛Æ⌐,>    FOR R1=1 TO 5
  627.  
  628. <:#242,9360><:f,1û╛Æ⌐,>        IF R1=1
  629.  
  630. <:#242,9360><:f,1û╛Æ⌐,>            ChkHoliday(TMon,DayNum,1,Year1)
  631.  
  632. <:#242,9360><:f,1û╛Æ⌐,>        ELSE
  633.  
  634. <:#242,9360><:f,1û╛Æ⌐,>            ChkHoliday(TMon,DayNum,0,Year1)
  635.  
  636. <:#242,9360><:f,1û╛Æ⌐,>        ENDIF
  637.  
  638. <:#242,9360><:f,1û╛Æ⌐,>        Type("{DayNum}<[>Right]<[>Right]")
  639.  
  640. <:#242,9360><:f,1û╛Æ⌐,>        DayNum=DayNum + 1
  641.  
  642. <:#242,9360><:f,1û╛Æ⌐,>    NEXT
  643.  
  644. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF FirstDayWeek="<:f,1û╛Æ⌐,>Tuesday"
  645.  
  646. <:#242,9360><:f,1û╛Æ⌐,>    Type("<[>Right]<[>Right]<[>Right]<[>Right]")
  647.  
  648. <:#242,9360><:f,1û╛Æ⌐,>    FOR R2=1 TO 4
  649.  
  650. <:#242,9360><:f,1û╛Æ⌐,>        ChkHoliday(TMon,DayNum,0,Year1)
  651.  
  652. <:#242,9360><:f,1û╛Æ⌐,>        Type("{DayNum}<[>Right]<[>Right]")
  653.  
  654. <:#242,9360><:f,1û╛Æ⌐,>        DayNum=DayNum + 1
  655.  
  656. <:#242,9360><:f,1û╛Æ⌐,>    NEXT
  657.  
  658. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF FirstDayWeek="<:f,1û╛Æ⌐,>Wednesday"
  659.  
  660. <:#242,9360><:f,1û╛Æ⌐,>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  661.  
  662. <:#242,9360><:f,1û╛Æ⌐,>    FOR R3=1 TO 3
  663.  
  664. <:#242,9360><:f,1û╛Æ⌐,>        ChkHoliday(TMon,DayNum,0,Year1)
  665.  
  666. <:#242,9360><:f,1û╛Æ⌐,>        Type("{DayNum}<[>Right]<[>Right]")
  667.  
  668. <:#242,9360><:f,1û╛Æ⌐,>        DayNum=DayNum + 1
  669.  
  670. <:#242,9360><:f,1û╛Æ⌐,>    NEXT
  671.  
  672. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF FirstDayWeek="<:f,1û╛Æ⌐,>Thursday"
  673.  
  674. <:#242,9360><:f,1û╛Æ⌐,>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  675.  
  676. <:#242,9360><:f,1û╛Æ⌐,>    FOR R4=1 TO 2
  677.  
  678. <:#242,9360><:f,1û╛Æ⌐,>        ChkHoliday(TMon,DayNum,0,Year1)
  679.  
  680. <:#242,9360><:f,1û╛Æ⌐,>        Type("{DayNum}<[>Right]<[>Right]")
  681.  
  682. <:#242,9360><:f,1û╛Æ⌐,>        DayNum=DayNum + 1
  683.  
  684. <:#242,9360><:f,1û╛Æ⌐,>    NEXT
  685.  
  686. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF FirstDayWeek="<:f,1û╛Æ⌐,>Friday"
  687.  
  688. <:#242,9360><:f,1û╛Æ⌐,>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  689.  
  690. <:#242,9360><:f,1û╛Æ⌐,>    ChkHoliday(TMon,DayNum,0,Year1)
  691.  
  692. <:#242,9360><:f,1û╛Æ⌐,>    Type("{DayNum}<[>Right]<[>Right]")
  693.  
  694. <:#242,9360><:f,1û╛Æ⌐,>    DayNum=DayNum + 1
  695.  
  696. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF FirstDayWeek="<:f,1û╛Æ⌐,>Saturday"
  697.  
  698. <:f,1û╛Æ⌐,>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  699.  
  700. <:#242,9360><:f,1û╛Æ⌐,>ENDIF
  701.  
  702. <:#242,9360><:f,1û╛Æ⌐,>ChkHoliday(TMon,DayNum,0,Year1)
  703.  
  704. <:#242,9360><:f,1û╛Æ⌐,>Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  705.  
  706. <:#242,9360><:f,1û╛Æ⌐,>DayNum=DayNum + 1
  707.  
  708. <:#242,9360><:f,1û╛Æ⌐,>FOR Column= 2 <++>to<-+> 5
  709.  
  710. <:#242,9360><:f,1û╛Æ⌐,>    FOR Row= 1 <++>to<-+> 6
  711.  
  712. <:#242,9360><:f,1û╛Æ⌐,>        IF Row=2
  713.  
  714. <:#242,9360><:f,1û╛Æ⌐,>            ChkHoliday(TMon,DayNum,1,Year1)
  715.  
  716. <:#242,9360><:f,1û╛Æ⌐,>        ELSE
  717.  
  718. <:#242,9360><:f,1û╛Æ⌐,>            ChkHoliday(TMon,DayNum,0,Year1)
  719.  
  720. <:#242,9360><:f,1û╛Æ⌐,>        ENDIF
  721.  
  722. <:#242,9360><:f,1û╛Æ⌐,>        Type("{DayNum}<[>Right]<[>Right]")
  723.  
  724. <:#242,9360><:f,1û╛Æ⌐,>        DayNum=DayNum + 1
  725.  
  726. <:#242,9360><:f,1û╛Æ⌐,>        IF DayNum <;> LastDay
  727.  
  728. <:#242,9360><:f,1û╛Æ⌐,>            EXIT FUNCTION
  729.  
  730. <:#242,9360><:f,1û╛Æ⌐,>        ENDIF
  731.  
  732. <:#242,9360><:f,1û╛Æ⌐,>    NEXT 
  733.  
  734. <:#242,9360><:f,1û╛Æ⌐,>    IF Column=5 AND DayNum<<LastDay
  735.  
  736. <:#242,9360><:f,1û╛Æ⌐,>        Type("{DayNum}")
  737.  
  738. <:#242,9360><:f,1û╛Æ⌐,>        DayNum=DayNum + 1
  739.  
  740. <:#242,9360><:f,1û╛Æ⌐,>        Type("<[>Right]")
  741.  
  742. <:#242,9360><:f,1û╛Æ⌐,>        AdjustTable()
  743.  
  744. <:#242,9360><:f,1û╛Æ⌐,>        FOR Row2=1 TO 7
  745.  
  746. <:#242,9360><:f,1û╛Æ⌐,>            FOR Row3=1 TO 2
  747.  
  748. <:#242,9360><:f,1û╛Æ⌐,>                Type("<[>CTRLRight]")
  749.  
  750. <:#242,9360><:f,1û╛Æ⌐,>                TurnOn=TopSide
  751.  
  752. <:#242,9360><:f,1û╛Æ⌐,>                TurnOff=0
  753.  
  754. <:#242,9360><:f,1û╛Æ⌐,>                StaySame=CellShade + Outline
  755.  
  756. <:#242,9360><:f,1û╛Æ⌐,>                TableLines(TurnOn, TurnOff, StaySame, Hairline, CellShade)
  757.  
  758. <:#242,9360><:f,1û╛Æ⌐,>            NEXT
  759.  
  760. <:#242,9360><:f,1û╛Æ⌐,>            Type("{DayNum}")
  761.  
  762. <:#242,9360><:f,1û╛Æ⌐,>            DayNum=DayNum + 1
  763.  
  764. <:#242,9360><:f,1û╛Æ⌐,>            IF DayNum <;> LastDay
  765.  
  766. <:#242,9360><:f,1û╛Æ⌐,>                BREAK
  767.  
  768. <:#242,9360><:f,1û╛Æ⌐,>            ENDIF
  769.  
  770. <:#242,9360><:f,1û╛Æ⌐,>        NEXT
  771.  
  772. <:#242,9360><:f,1û╛Æ⌐,>    ELSEIF DayNum = LastDay
  773.  
  774. <:#242,9360><:f,1û╛Æ⌐,>        Type("{DayNum}<[>CtrlHome]")
  775.  
  776. <:#242,9360><:f,1û╛Æ⌐,>        BREAK
  777.  
  778. <:#242,9360><:f,1û╛Æ⌐,>    ELSE
  779.  
  780. <:#242,9360><:f,1û╛Æ⌐,>        ChkHoliday(TMon,DayNum,0,Year1)
  781.  
  782. <:#242,9360><:f,1û╛Æ⌐,>        Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  783.  
  784. <:#242,9360><:f,1û╛Æ⌐,>    ENDIF
  785.  
  786. <:#242,9360><:f,1û╛Æ⌐,>    DayNum=DayNum + 1
  787.  
  788. <:#242,9360><:f,1û╛Æ⌐,>NEXT
  789.  
  790. <:#242,9360><:f,1û╛Æ⌐,>END FUNCTION
  791.  
  792. <:#242,9360><:f,1û╛Æ⌐,>
  793.  
  794. @╠º▌╕╝«▌@<:#242,9360><:f,1û╛Æ⌐,>FUNCTION CheckLeap(Year1)
  795.  
  796. <:#242,9360><:f,1û╛Æ⌐,>IF  MOD(Year1,400) = 0
  797.  
  798. <:#242,9360><:f,1û╛Æ⌐,>    CheckLeap = 28
  799.  
  800. <:#242,9360><:f,1û╛Æ⌐,>ELSEIF  MOD(Year1,4) = 0
  801.  
  802. <:#242,9360><:f,1û╛Æ⌐,>    CheckLeap = 29
  803.  
  804. <:f,1û╛Æ⌐,>ELSE
  805.  
  806. <:#242,9360><:f,1û╛Æ⌐,>    CheckLeap = 28
  807.  
  808. <:#242,9360><:f,1û╛Æ⌐,>ENDIF
  809.  
  810. <:#242,9360><:f,1û╛Æ⌐,>END FUNCTION
  811.  
  812. <:#242,9360><:f,1û╛Æ⌐,>
  813.  
  814. @╠º▌╕╝«▌@<:#242,9360><:f,1û╛Æ⌐,>FUNCTION AdjustTable()
  815.  
  816. <:#242,9360><:f,1û╛Æ⌐,>SizeColumnRow(-32768 -32768 936 -32768  )
  817.  
  818. <:#242,9360><:f,1û╛Æ⌐,>Type( "<[>Up]" )
  819.  
  820. <:#242,9360><:f,1û╛Æ⌐,>SizeColumnRow(-32768 -32768 936 -32768  )
  821.  
  822. <:#242,9360><:f,1û╛Æ⌐,>Type( "<[>Down]" )
  823.  
  824. <:#242,9360><:f,1û╛Æ⌐,>ConnectCells( )
  825.  
  826. <:#242,9360><:f,1û╛Æ⌐,>Type( "<[>CTRLRight]<[>CTRLRight]" )
  827.  
  828. <:#242,9360><:f,1û╛Æ⌐,>ConnectCells( )
  829.  
  830. <:#242,9360><:f,1û╛Æ⌐,>Type("<[>CTRLLeft]<[>CTRLLeft]<[>CTRLLeft]")
  831.  
  832. <:#242,9360><:f,1û╛Æ⌐,>END FUNCTION
  833.  
  834. <:#242,9360><:f,1û╛Æ⌐,>
  835.  
  836. @╠º▌╕╝«▌@<:#242,9360><:f,1û╛Æ⌐,>FUNCTION ChkHoliday(TMon,DayNum,mond,Year1)
  837.  
  838. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR  HolSty
  839.  
  840. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR  leap
  841.  
  842. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR  dm
  843.  
  844. <:#242,9360><:f,1û╛Æ⌐,>DEFSTR  dm2
  845.  
  846. <:#242,9360><:f,1û╛Æ⌐,>dm = TMon * 100 + DayNum
  847.  
  848. <:#242,9360><:f,1û╛Æ⌐,>dm2 = dm - mond
  849.  
  850. <:#242,9360><:f,1û╛Æ⌐,>HolSty = "<:f,1û╛Æ⌐,>ô·ùjô·"
  851.  
  852. <:#242,9360><:f,1û╛Æ⌐,>IF  TMon = 3  OR  TMon = 9
  853.  
  854. <:#242,9360><:f,1û╛Æ⌐,>    IF  dm = 915  OR  dm2 = 915
  855.  
  856. <:#242,9360><:f,1û╛Æ⌐,>        setstyle(HolSty)
  857.  
  858. <:#242,9360><:f,1û╛Æ⌐,>    ELSE
  859.  
  860. <:#242,9360><:f,1û╛Æ⌐,>        leap = CheckLeap(Year1)
  861.  
  862. <:#242,9360><:f,1û╛Æ⌐,>        IF  leap = 29
  863.  
  864. <:#242,9360><:f,1û╛Æ⌐,>            dm = dm - 1
  865.  
  866. <:#242,9360><:f,1û╛Æ⌐,>            dm2 = dm2 - 1
  867.  
  868. <:#242,9360><:f,1û╛Æ⌐,>        ENDIF
  869.  
  870. <:#242,9360><:f,1û╛Æ⌐,>        IF  dm = 320  OR  dm2 = 320  OR  dm = 923  OR  dm2 = 923
  871.  
  872. <:#242,9360><:f,1û╛Æ⌐,>            setstyle(HolSty)
  873.  
  874. <:#242,9360><:f,1û╛Æ⌐,>        ENDIF
  875.  
  876. <:#242,9360><:f,1û╛Æ⌐,>    ENDIF
  877.  
  878. <:#242,9360><:f,1û╛Æ⌐,>ELSE
  879.  
  880. <:#242,9360><:f,1û╛Æ⌐,>    IF  dm = 101  OR  dm2 = 101  OR  dm = 115  OR  dm2 = 115  OR
  881.  
  882. <:#242,9360><:f,1û╛Æ⌐,>          dm = 211  OR  dm2 = 211  OR
  883.  
  884. <:#242,9360><:f,1û╛Æ⌐,>          dm = 429  OR  dm2 = 429  OR
  885.  
  886. <:#242,9360><:f,1û╛Æ⌐,>          dm = 503  OR  dm = 504  OR  dm = 505  OR  dm2 = 505  OR
  887.  
  888. <:#242,9360><:f,1û╛Æ⌐,>          dm = 1010  OR  dm2 = 1010  OR
  889.  
  890. <:#242,9360><:f,1û╛Æ⌐,>          dm = 1103  OR  dm2 = 1103  OR  dm = 1123  OR  dm2 = 1123  OR
  891.  
  892. <:#242,9360><:f,1û╛Æ⌐,>          dm = 1223  OR  dm2 = 1223
  893.  
  894. <:#242,9360><:f,1û╛Æ⌐,>        setstyle(HolSty)
  895.  
  896. <:#242,9360><:f,1û╛Æ⌐,>    ENDIF
  897.  
  898. <:#242,9360><:f,1û╛Æ⌐,>ENDIF
  899.  
  900. <:#242,9360><:f,1û╛Æ⌐,>END FUNCTION
  901.  
  902. <:#242,9360><:f,1û╛Æ⌐,>
  903.  
  904. <:#242,9360><:f,1û╛Æ⌐,>'Dialog Box Section
  905.  
  906. <:#242,9360><:f,1û╛Æ⌐,>DIALOG    Heymon
  907.  
  908. <:f,1û╛Æ⌐,>-2134376448    6    94    46    136    50    ""    ""    "îÄè╘╢┌▌└▐░"
  909.  
  910. <:#242,9360><:f,1û╛Æ⌐,>FONT    8    "System"
  911.  
  912. <:#726,9360><:f,1û╛Æ⌐,>4    12    26    9    1000    1342177280    "static"    "îÄ :"    0 
  913.  
  914. <:#726,9360><:f,1û╛Æ⌐,>4    28    22    9    1001    1342177280    "static"    "öN :"    0 
  915.  
  916. <:#726,9360><:f,1û╛Æ⌐,>28    10    52    80    9500    1344339979    "combobox"    ""    0 
  917.  
  918. <:#726,9360><:f,1û╛Æ⌐,>28    26    52    80    9501    1344339979    "combobox"    ""    0 
  919.  
  920. <:#726,9360><:f,1û╛Æ⌐,>90    9    40    13    1    1342242817    "button"    "OK"    0 
  921.  
  922. <:#726,9360><:f,1û╛Æ⌐,>90    25    40    13    2    1342242816    "button"    "╖¼▌╛┘"    0 
  923.  
  924. <:#242,9360><:f,1û╛Æ⌐,>END DIALOG<:f>
  925.  
  926. @Body Text@
  927. >
  928.  
  929. [Embedded]
  930. 00022722
  931. >
  932. [macsum] 7
  933. AutoCal 0 0 13 3
  934. BuildDate 4680 3 7 160
  935. FillCalendar 5940 4 13 198
  936. CheckLeap 9581 1 1 306
  937. AdjustTable 9818 0 1 316
  938. ChkHoliday 10079 4 5 327
  939. Heymon 11256 0 -1 362
  940. [macse]
  941. 14 AutoCal
  942. 0 4 0
  943. 17 20
  944. 29 12 NW
  945. 0 1317
  946. 13
  947. 8 12
  948. 17 21
  949. 6 12
  950. 5 0
  951. 18 0
  952. 11 00000539
  953. 17 23
  954. 0 1050
  955. 13
  956. 8 10
  957. 17 24
  958. 6 10
  959. 5 0
  960. 18 0
  961. 11 00000281
  962. 17 25
  963. 0 3 "âtâ@âCâïâüâjâàü[é╠ÉVïKì∞ɼé┼JCALMON.STYé≡æIé╘é╞é▒é╠â}âNâìé¬Ä└ìsé│éΩé▄é╖é╠é┼üAé╗é┐éτé≡Ägùpé╡é─é¡é╛é│éó"
  964. 6 0
  965. 15
  966. 9
  967. 17 29
  968. 0 279 1
  969. 13
  970. 8 9
  971. 17 30
  972. 0 279 3
  973. 13
  974. 8 8
  975. 17 31
  976. 6 9
  977. 7 "(ÉVïKò╢Åæ)"
  978. 18 1
  979. 6 8
  980. 7 "JCALMON.STY"
  981. 18 1
  982. 1 2
  983. 11 00000539
  984. 17 32
  985. 0 3 "âtâ@âCâïâüâjâàü[é╠ÉVïKì∞ɼé┼JCALMON.STYé≡æIé╘é╞é▒é╠â}âNâìé¬Ä└ìsé│éΩé▄é╖é╠é┼üAé╗é┐éτé≡Ägùpé╡é─é¡é╛é│éó"
  986. 6 0
  987. 15
  988. 9
  989. 17 37
  990. 0 772
  991. 13
  992. 0 770 [X] "S"
  993. 13
  994. 0 20 [X] 1 "îÄ"
  995. 13
  996. 8 1
  997. 17 38
  998. 0 16 "{1}" "îÄ"
  999. 13
  1000. 0 31 9500 [X]
  1001. 17 39
  1002. 0 772
  1003. 13
  1004. 0 770 [X] "c"
  1005. 13
  1006. 0 20 [X] 3 " "
  1007. 13
  1008. 0 31 9501 [X]
  1009. 17 40
  1010. 0 31 9500 "éPîÄ"
  1011. 17 41
  1012. 0 31 9500 "éQîÄ"
  1013. 17 42
  1014. 0 31 9500 "éRîÄ"
  1015. 17 43
  1016. 0 31 9500 "éSîÄ"
  1017. 17 44
  1018. 0 31 9500 "éTîÄ"
  1019. 17 45
  1020. 0 31 9500 "éUîÄ"
  1021. 17 46
  1022. 0 31 9500 "éVîÄ"
  1023. 17 47
  1024. 0 31 9500 "éWîÄ"
  1025. 17 48
  1026. 0 31 9500 "éXîÄ"
  1027. 17 49
  1028. 0 31 9500 "éPéOîÄ"
  1029. 17 50
  1030. 0 31 9500 "éPéPîÄ"
  1031. 17 51
  1032. 0 31 9500 "éPéQîÄ"
  1033. 17 52
  1034. 0 31 9500 "January"
  1035. 17 53
  1036. 0 31 9500 "February"
  1037. 17 54
  1038. 0 31 9500 "March"
  1039. 17 55
  1040. 0 31 9500 "April"
  1041. 17 56
  1042. 0 31 9500 "May"
  1043. 17 57
  1044. 0 31 9500 "June"
  1045. 17 58
  1046. 0 31 9500 "July"
  1047. 17 59
  1048. 0 31 9500 "August"
  1049. 17 60
  1050. 0 31 9500 "September"
  1051. 17 61
  1052. 0 31 9500 "October"
  1053. 17 62
  1054. 0 31 9500 "November"
  1055. 17 63
  1056. 0 31 9500 "December"
  1057. 5 1980
  1058. 8 11
  1059. 17 64
  1060. 5 2010
  1061. 6 11
  1062. 18 2
  1063. 12 00001451
  1064. 10 00001489
  1065. 5 1
  1066. 6 11
  1067. 3 0
  1068. 8 11
  1069. 10 00001363
  1070. 17 65
  1071. 0 31 9501 "{11}"
  1072. 10 00001416
  1073. 17 67
  1074. 2 210 1
  1075. 17 68
  1076. 2 201 1
  1077. 17 71
  1078. 0 26 "." "Heymon"
  1079. 13
  1080. 8 4
  1081. 17 72
  1082. 0 27 9500
  1083. 13
  1084. 8 1
  1085. 17 73
  1086. 0 27 9501
  1087. 13
  1088. 8 2
  1089. 17 75
  1090. 6 4
  1091. 5 0
  1092. 18 0
  1093. 11 00001658
  1094. 6 0
  1095. 15
  1096. 9
  1097. 17 79
  1098. 6 2
  1099. 5 1980
  1100. 18 5
  1101. 6 2
  1102. 5 2010
  1103. 18 3
  1104. 1 2
  1105. 11 00001850
  1106. 17 80
  1107. 0 3 "öNé═1980öNé⌐éτ2010öNé╠ö═ê═é┼é╚é¡é─é═é╚éΦé▄é╣é±"
  1108. 17 81
  1109. 0 31 9500 "{1}"
  1110. 17 82
  1111. 0 31 9501 "{2}"
  1112. 17 83
  1113. 10 00001521
  1114. 17 85
  1115. 0 14 "{2}"
  1116. 13
  1117. 8 7
  1118. 17 86
  1119. 6 7
  1120. 5 4
  1121. 18 1
  1122. 11 00002166
  1123. 17 87
  1124. 0 3 "öNé═É╝ù∩é┼éSîàôⁿù═é╡é─é¡é╛é│éóüB(ùßü@'1991')"
  1125. 17 88
  1126. 0 31 9500 "{1}"
  1127. 17 89
  1128. 0 31 9501 "{2}"
  1129. 17 90
  1130. 10 00001521
  1131. 17 92
  1132. 0 3 "Year must be in a range from 1980 to 1999."
  1133. 17 93
  1134. 0 31 9500 "{1}"
  1135. 17 94
  1136. 0 31 9501 "{2}"
  1137. 17 95
  1138. 10 00001521
  1139. 17 98
  1140. 0 17 "{1}"
  1141. 13
  1142. 8 3
  1143. 17 99
  1144. 6 3
  1145. 7 "january"
  1146. 18 0
  1147. 6 3
  1148. 7 "éPîÄ"
  1149. 18 0
  1150. 1 2
  1151. 11 00002386
  1152. 17 100
  1153. 5 31
  1154. 8 6
  1155. 17 101
  1156. 16 BuildDate "{1}" "{2}" 1
  1157. 13
  1158. 8 5
  1159. 17 102
  1160. 16 FillCalendar "{5}" "{6}" 1 "{2}"
  1161. 10 00004660
  1162. 17 103
  1163. 6 3
  1164. 7 "february"
  1165. 18 0
  1166. 6 3
  1167. 7 "éQîÄ"
  1168. 18 0
  1169. 1 2
  1170. 11 00002598
  1171. 17 104
  1172. 16 CheckLeap "{2}"
  1173. 13
  1174. 8 6
  1175. 17 105
  1176. 16 BuildDate "{1}" "{2}" 2
  1177. 13
  1178. 8 5
  1179. 17 106
  1180. 16 FillCalendar "{5}" "{6}" 2 "{2}"
  1181. 10 00004660
  1182. 17 107
  1183. 6 3
  1184. 7 "march"
  1185. 18 0
  1186. 6 3
  1187. 7 "éRîÄ"
  1188. 18 0
  1189. 1 2
  1190. 11 00002789
  1191. 17 108
  1192. 5 31
  1193. 8 6
  1194. 17 109
  1195. 16 BuildDate "{1}" "{2}" 3
  1196. 13
  1197. 8 5
  1198. 17 110
  1199. 16 FillCalendar "{5}" "{6}" 3 "{2}"
  1200. 10 00004660
  1201. 17 111
  1202. 6 3
  1203. 7 "april"
  1204. 18 0
  1205. 6 3
  1206. 7 "éSîÄ"
  1207. 18 0
  1208. 1 2
  1209. 11 00002980
  1210. 17 112
  1211. 5 30
  1212. 8 6
  1213. 17 113
  1214. 16 BuildDate "{1}" "{2}" 4
  1215. 13
  1216. 8 5
  1217. 17 114
  1218. 16 FillCalendar "{5}" "{6}" 4 "{2}"
  1219. 10 00004660
  1220. 17 115
  1221. 6 3
  1222. 7 "may"
  1223. 18 0
  1224. 6 3
  1225. 7 "éTîÄ"
  1226. 18 0
  1227. 1 2
  1228. 11 00003169
  1229. 17 116
  1230. 5 31
  1231. 8 6
  1232. 17 117
  1233. 16 BuildDate "{1}" "{2}" 5
  1234. 13
  1235. 8 5
  1236. 17 118
  1237. 16 FillCalendar "{5}" "{6}" 5 "{2}"
  1238. 10 00004660
  1239. 17 119
  1240. 6 3
  1241. 7 "june"
  1242. 18 0
  1243. 6 3
  1244. 7 "éUîÄ"
  1245. 18 0
  1246. 1 2
  1247. 11 00003359
  1248. 17 120
  1249. 5 30
  1250. 8 6
  1251. 17 121
  1252. 16 BuildDate "{1}" "{2}" 6
  1253. 13
  1254. 8 5
  1255. 17 122
  1256. 16 FillCalendar "{5}" "{6}" 6 "{2}"
  1257. 10 00004660
  1258. 17 123
  1259. 6 3
  1260. 7 "july"
  1261. 18 0
  1262. 6 3
  1263. 7 "éVîÄ"
  1264. 18 0
  1265. 1 2
  1266. 11 00003549
  1267. 17 124
  1268. 5 31
  1269. 8 6
  1270. 17 125
  1271. 16 BuildDate "{1}" "{2}" 7
  1272. 13
  1273. 8 5
  1274. 17 126
  1275. 16 FillCalendar "{5}" "{6}" 7 "{2}"
  1276. 10 00004660
  1277. 17 127
  1278. 6 3
  1279. 7 "august"
  1280. 18 0
  1281. 6 3
  1282. 7 "éWîÄ"
  1283. 18 0
  1284. 1 2
  1285. 11 00003741
  1286. 17 128
  1287. 5 31
  1288. 8 6
  1289. 17 129
  1290. 16 BuildDate "{1}" "{2}" 8
  1291. 13
  1292. 8 5
  1293. 17 130
  1294. 16 FillCalendar "{5}" "{6}" 8 "{2}"
  1295. 10 00004660
  1296. 17 131
  1297. 6 3
  1298. 7 "september"
  1299. 18 0
  1300. 6 3
  1301. 7 "éXîÄ"
  1302. 18 0
  1303. 1 2
  1304. 11 00003936
  1305. 17 132
  1306. 5 30
  1307. 8 6
  1308. 17 133
  1309. 16 BuildDate "{1}" "{2}" 9
  1310. 13
  1311. 8 5
  1312. 17 134
  1313. 16 FillCalendar "{5}" "{6}" 9 "{2}"
  1314. 10 00004660
  1315. 17 135
  1316. 6 3
  1317. 7 "october"
  1318. 18 0
  1319. 6 3
  1320. 7 "éPéOîÄ"
  1321. 18 0
  1322. 1 2
  1323. 11 00004133
  1324. 17 136
  1325. 5 31
  1326. 8 6
  1327. 17 137
  1328. 16 BuildDate "{1}" "{2}" 10
  1329. 13
  1330. 8 5
  1331. 17 138
  1332. 16 FillCalendar "{5}" "{6}" 10 "{2}"
  1333. 10 00004660
  1334. 17 139
  1335. 6 3
  1336. 7 "november"
  1337. 18 0
  1338. 6 3
  1339. 7 "éPéPîÄ"
  1340. 18 0
  1341. 1 2
  1342. 11 00004331
  1343. 17 140
  1344. 5 30
  1345. 8 6
  1346. 17 141
  1347. 16 BuildDate "{1}" "{2}" 11
  1348. 13
  1349. 8 5
  1350. 17 142
  1351. 16 FillCalendar "{5}" "{6}" 11 "{2}"
  1352. 10 00004660
  1353. 17 143
  1354. 6 3
  1355. 7 "december"
  1356. 18 0
  1357. 6 3
  1358. 7 "éPéQîÄ"
  1359. 18 0
  1360. 1 2
  1361. 11 00004529
  1362. 17 144
  1363. 5 31
  1364. 8 6
  1365. 17 145
  1366. 16 BuildDate "{1}" "{2}" 12
  1367. 13
  1368. 8 5
  1369. 17 146
  1370. 16 FillCalendar "{5}" "{6}" 12 "{2}"
  1371. 10 00004660
  1372. 17 149
  1373. 0 3 "îÄé¬ùLî°é┼é═éáéΦé▄é╣é±üBì─ôⁿù═é╡é─é¡é╛é│éóüB"
  1374. 17 150
  1375. 0 31 9500 "{1}"
  1376. 17 151
  1377. 0 31 9501 "{2}"
  1378. 17 152
  1379. 10 00001521
  1380. 6 0
  1381. 15
  1382. 17 155
  1383. 9
  1384. 14 BuildDate
  1385. 29 0 Month1
  1386. 29 1 Year1
  1387. 29 2 NMonth
  1388. 29 3 BuildDate
  1389. 17 1
  1390. 29 4 TYear
  1391. 17 2
  1392. 29 5 NDate
  1393. 17 3
  1394. 29 6 WDate
  1395. 17 4
  1396. 29 7 NumLeap
  1397. 17 5
  1398. 29 8 i
  1399. 17 6
  1400. 29 9 FebDay
  1401. 17 8
  1402. 6 1
  1403. 5 1980
  1404. 3 1
  1405. 5 3
  1406. 3 0
  1407. 8 4
  1408. 17 9
  1409. 6 4
  1410. 0 788 "{4}" 4
  1411. 13
  1412. 3 1
  1413. 5 4
  1414. 4 1
  1415. 8 7
  1416. 17 10
  1417. 6 1
  1418. 5 1980
  1419. 3 1
  1420. 5 365
  1421. 4 0
  1422. 5 86400
  1423. 4 0
  1424. 6 7
  1425. 5 86400
  1426. 4 0
  1427. 3 0
  1428. 5 315532800
  1429. 3 0
  1430. 5 9
  1431. 5 3600
  1432. 4 0
  1433. 3 0
  1434. 8 5
  1435. 17 14
  1436. 6 2
  1437. 5 1
  1438. 18 3
  1439. 11 00000859
  1440. 5 1
  1441. 8 8
  1442. 17 15
  1443. 6 2
  1444. 5 1
  1445. 3 1
  1446. 6 8
  1447. 18 2
  1448. 12 00000523
  1449. 10 00000859
  1450. 5 1
  1451. 6 8
  1452. 3 0
  1453. 8 8
  1454. 10 00000431
  1455. 17 16
  1456. 6 8
  1457. 5 4
  1458. 18 0
  1459. 6 8
  1460. 5 6
  1461. 18 0
  1462. 6 8
  1463. 5 9
  1464. 18 0
  1465. 6 8
  1466. 5 11
  1467. 18 0
  1468. 1 2
  1469. 1 2
  1470. 1 2
  1471. 11 00000678
  1472. 17 17
  1473. 6 5
  1474. 5 30
  1475. 5 86400
  1476. 4 0
  1477. 3 0
  1478. 8 5
  1479. 10 00000846
  1480. 17 18
  1481. 6 8
  1482. 5 2
  1483. 18 0
  1484. 11 00000804
  1485. 17 19
  1486. 16 CheckLeap "{1}"
  1487. 13
  1488. 8 9
  1489. 17 20
  1490. 6 5
  1491. 6 9
  1492. 5 86400
  1493. 4 0
  1494. 3 0
  1495. 8 5
  1496. 10 00000846
  1497. 17 22
  1498. 6 5
  1499. 5 31
  1500. 5 86400
  1501. 4 0
  1502. 3 0
  1503. 8 5
  1504. 10 00000490
  1505. 17 26
  1506. 0 770 "{5}" "f"
  1507. 13
  1508. 8 6
  1509. 17 27
  1510. 0 20 "{6}" 1 " "
  1511. 13
  1512. 8 3
  1513. 17 28
  1514. 0 6 "[16420]{1}[39]{0}[39]{1}"
  1515. 17 29
  1516. 0 807 "{0}" 2
  1517. 13
  1518. 7 "îÄ"
  1519. 18 0
  1520. 11 00001132
  1521. 17 30
  1522. 0 6 "[16420][40]ô·ùjô·[9]îÄùjô·[9]ë╬ùjô·[9]Éàùjô·"
  1523. 17 31
  1524. 0 6 "[9]û╪ùjô·[9]ïαùjô·[9]ôyùjô·"
  1525. 10 00001241
  1526. 17 33
  1527. 0 6 "[16420][40]Sunday[9]Monday[9]Tuesday[9]Wednesday"
  1528. 17 34
  1529. 0 6 "[9]Thursday[9]Friday[9]Saturday"
  1530. 6 3
  1531. 15
  1532. 17 36
  1533. 9
  1534. 14 FillCalendar
  1535. 29 0 FirstDayWeek
  1536. 29 1 LastDay
  1537. 29 2 TMon
  1538. 29 3 Year1
  1539. 29 4 FillCalendar
  1540. 17 1
  1541. 29 5 DayNum
  1542. 17 2
  1543. 29 6 Column
  1544. 17 3
  1545. 29 7 Row
  1546. 17 4
  1547. 29 8 Row2
  1548. 17 5
  1549. 29 9 Row3
  1550. 17 6
  1551. 29 10 R1
  1552. 17 7
  1553. 29 11 R2
  1554. 17 8
  1555. 29 12 R3
  1556. 17 9
  1557. 29 13 R4
  1558. 17 10
  1559. 0 6 "[16420][40][40][39]"
  1560. 17 11
  1561. 5 1
  1562. 8 5
  1563. 17 12
  1564. 6 0
  1565. 7 "Sunday"
  1566. 18 0
  1567. 11 00000647
  1568. 5 1
  1569. 8 10
  1570. 17 13
  1571. 5 6
  1572. 6 10
  1573. 18 2
  1574. 12 00000434
  1575. 10 00000634
  1576. 5 1
  1577. 6 10
  1578. 3 0
  1579. 8 10
  1580. 10 00000349
  1581. 17 14
  1582. 6 10
  1583. 5 2
  1584. 18 0
  1585. 11 00000526
  1586. 17 15
  1587. 16 ChkHoliday "{2}" "{5}" 1 "{3}"
  1588. 10 00000568
  1589. 17 17
  1590. 16 ChkHoliday "{2}" "{5}" 0 "{3}"
  1591. 17 19
  1592. 0 6 "{5}[39][39]"
  1593. 17 20
  1594. 6 5
  1595. 5 1
  1596. 3 0
  1597. 8 5
  1598. 10 00000399
  1599. 10 00002239
  1600. 17 22
  1601. 6 0
  1602. 7 "Monday"
  1603. 18 0
  1604. 11 00001022
  1605. 17 23
  1606. 0 6 "[39][39]"
  1607. 5 1
  1608. 8 10
  1609. 17 24
  1610. 5 5
  1611. 6 10
  1612. 18 2
  1613. 12 00000809
  1614. 10 00001009
  1615. 5 1
  1616. 6 10
  1617. 3 0
  1618. 8 10
  1619. 10 00000724
  1620. 17 25
  1621. 6 10
  1622. 5 1
  1623. 18 0
  1624. 11 00000901
  1625. 17 26
  1626. 16 ChkHoliday "{2}" "{5}" 1 "{3}"
  1627. 10 00000943
  1628. 17 28
  1629. 16 ChkHoliday "{2}" "{5}" 0 "{3}"
  1630. 17 30
  1631. 0 6 "{5}[39][39]"
  1632. 17 31
  1633. 6 5
  1634. 5 1
  1635. 3 0
  1636. 8 5
  1637. 10 00000774
  1638. 10 00002239
  1639. 17 33
  1640. 6 0
  1641. 7 "Tuesday"
  1642. 18 0
  1643. 11 00001314
  1644. 17 34
  1645. 0 6 "[39][39][39][39]"
  1646. 5 1
  1647. 8 11
  1648. 17 35
  1649. 5 4
  1650. 6 11
  1651. 18 2
  1652. 12 00001193
  1653. 10 00001301
  1654. 5 1
  1655. 6 11
  1656. 3 0
  1657. 8 11
  1658. 10 00001108
  1659. 17 36
  1660. 16 ChkHoliday "{2}" "{5}" 0 "{3}"
  1661. 17 37
  1662. 0 6 "{5}[39][39]"
  1663. 17 38
  1664. 6 5
  1665. 5 1
  1666. 3 0
  1667. 8 5
  1668. 10 00001158
  1669. 10 00002239
  1670. 17 40
  1671. 6 0
  1672. 7 "Wednesday"
  1673. 18 0
  1674. 11 00001616
  1675. 17 41
  1676. 0 6 "[39][39][39][39][39][39]"
  1677. 5 1
  1678. 8 12
  1679. 17 42
  1680. 5 3
  1681. 6 12
  1682. 18 2
  1683. 12 00001495
  1684. 10 00001603
  1685. 5 1
  1686. 6 12
  1687. 3 0
  1688. 8 12
  1689. 10 00001410
  1690. 17 43
  1691. 16 ChkHoliday "{2}" "{5}" 0 "{3}"
  1692. 17 44
  1693. 0 6 "{5}[39][39]"
  1694. 17 45
  1695. 6 5
  1696. 5 1
  1697. 3 0
  1698. 8 5
  1699. 10 00001460
  1700. 10 00002239
  1701. 17 47
  1702. 6 0
  1703. 7 "Thursday"
  1704. 18 0
  1705. 11 00001925
  1706. 17 48
  1707. 0 6 "[39][39][39][39][39][39][39][39]"
  1708. 5 1
  1709. 8 13
  1710. 17 49
  1711. 5 2
  1712. 6 13
  1713. 18 2
  1714. 12 00001804
  1715. 10 00001912
  1716. 5 1
  1717. 6 13
  1718. 3 0
  1719. 8 13
  1720. 10 00001719
  1721. 17 50
  1722. 16 ChkHoliday "{2}" "{5}" 0 "{3}"
  1723. 17 51
  1724. 0 6 "{5}[39][39]"
  1725. 17 52
  1726. 6 5
  1727. 5 1
  1728. 3 0
  1729. 8 5
  1730. 10 00001769
  1731. 10 00002239
  1732. 17 54
  1733. 6 0
  1734. 7 "Friday"
  1735. 18 0
  1736. 11 00002131
  1737. 17 55
  1738. 0 6 "[39][39][39][39][39][39][39][39][39][39]"
  1739. 17 56
  1740. 16 ChkHoliday "{2}" "{5}" 0 "{3}"
  1741. 17 57
  1742. 0 6 "{5}[39][39]"
  1743. 17 58
  1744. 6 5
  1745. 5 1
  1746. 3 0
  1747. 8 5
  1748. 10 00002239
  1749. 17 59
  1750. 6 0
  1751. 7 "Saturday"
  1752. 18 0
  1753. 11 00002239
  1754. 17 60
  1755. 0 6 "[39][39][39][39][39][39][39][39][39][39][39][39]"
  1756. 17 62
  1757. 16 ChkHoliday "{2}" "{5}" 0 "{3}"
  1758. 17 63
  1759. 0 6 "{5}[39][40][39]"
  1760. 17 64
  1761. 6 5
  1762. 5 1
  1763. 3 0
  1764. 8 5
  1765. 5 2
  1766. 8 6
  1767. 17 65
  1768. 5 5
  1769. 6 6
  1770. 18 2
  1771. 12 00002430
  1772. 10 00003621
  1773. 5 1
  1774. 6 6
  1775. 3 0
  1776. 8 6
  1777. 10 00002348
  1778. 5 1
  1779. 8 7
  1780. 17 66
  1781. 5 6
  1782. 6 7
  1783. 18 2
  1784. 12 00002522
  1785. 10 00002769
  1786. 5 1
  1787. 6 7
  1788. 3 0
  1789. 8 7
  1790. 10 00002440
  1791. 17 67
  1792. 6 7
  1793. 5 2
  1794. 18 0
  1795. 11 00002613
  1796. 17 68
  1797. 16 ChkHoliday "{2}" "{5}" 1 "{3}"
  1798. 10 00002655
  1799. 17 70
  1800. 16 ChkHoliday "{2}" "{5}" 0 "{3}"
  1801. 17 72
  1802. 0 6 "{5}[39][39]"
  1803. 17 73
  1804. 6 5
  1805. 5 1
  1806. 3 0
  1807. 8 5
  1808. 17 74
  1809. 6 5
  1810. 6 1
  1811. 18 3
  1812. 11 00002756
  1813. 6 4
  1814. 15
  1815. 9
  1816. 10 00002489
  1817. 17 78
  1818. 6 6
  1819. 5 5
  1820. 18 0
  1821. 6 5
  1822. 6 1
  1823. 18 5
  1824. 1 1
  1825. 11 00003412
  1826. 17 79
  1827. 0 6 "{5}"
  1828. 17 80
  1829. 6 5
  1830. 5 1
  1831. 3 0
  1832. 8 5
  1833. 17 81
  1834. 0 6 "[39]"
  1835. 17 82
  1836. 16 AdjustTable
  1837. 5 1
  1838. 8 8
  1839. 17 83
  1840. 5 7
  1841. 6 8
  1842. 18 2
  1843. 12 00003005
  1844. 10 00003399
  1845. 5 1
  1846. 6 8
  1847. 3 0
  1848. 8 8
  1849. 10 00002923
  1850. 5 1
  1851. 8 9
  1852. 17 84
  1853. 5 2
  1854. 6 9
  1855. 18 2
  1856. 12 00003097
  1857. 10 00003285
  1858. 5 1
  1859. 6 9
  1860. 3 0
  1861. 8 9
  1862. 10 00003015
  1863. 17 85
  1864. 0 6 "[16423]"
  1865. 17 86
  1866. 29 14 TurnOn
  1867. 5 16
  1868. 8 14
  1869. 17 87
  1870. 29 15 TurnOff
  1871. 5 0
  1872. 8 15
  1873. 17 88
  1874. 29 16 StaySame
  1875. 5 64
  1876. 5 2
  1877. 3 0
  1878. 8 16
  1879. 17 89
  1880. 2 632 1 "{14}" "{15}" "{16}" 1 64
  1881. 10 00003064
  1882. 17 91
  1883. 0 6 "{5}"
  1884. 17 92
  1885. 6 5
  1886. 5 1
  1887. 3 0
  1888. 8 5
  1889. 17 93
  1890. 6 5
  1891. 6 1
  1892. 18 3
  1893. 11 00003386
  1894. 17 94
  1895. 10 00003399
  1896. 10 00002972
  1897. 10 00003580
  1898. 17 97
  1899. 6 5
  1900. 6 1
  1901. 18 0
  1902. 11 00003506
  1903. 17 98
  1904. 0 6 "{5}[16420]"
  1905. 17 99
  1906. 10 00003621
  1907. 10 00003580
  1908. 17 101
  1909. 16 ChkHoliday "{2}" "{5}" 0 "{3}"
  1910. 17 102
  1911. 0 6 "{5}[39][40][39]"
  1912. 17 104
  1913. 6 5
  1914. 5 1
  1915. 3 0
  1916. 8 5
  1917. 10 00002397
  1918. 6 4
  1919. 15
  1920. 17 106
  1921. 9
  1922. 14 CheckLeap
  1923. 29 0 Year1
  1924. 29 1 CheckLeap
  1925. 17 1
  1926. 0 788 "{0}" 400
  1927. 13
  1928. 5 0
  1929. 18 0
  1930. 11 00000123
  1931. 17 2
  1932. 5 28
  1933. 8 1
  1934. 10 00000219
  1935. 17 3
  1936. 0 788 "{0}" 4
  1937. 13
  1938. 5 0
  1939. 18 0
  1940. 11 00000202
  1941. 17 4
  1942. 5 29
  1943. 8 1
  1944. 10 00000219
  1945. 17 6
  1946. 5 28
  1947. 8 1
  1948. 6 1
  1949. 15
  1950. 17 8
  1951. 9
  1952. 14 AdjustTable
  1953. 29 0 AdjustTable
  1954. 17 1
  1955. 2 634 1 -32768 -32768 936 -32768
  1956. 17 2
  1957. 0 6 "[38]"
  1958. 17 3
  1959. 2 634 1 -32768 -32768 936 -32768
  1960. 17 4
  1961. 0 6 "[40]"
  1962. 17 5
  1963. 2 635 1
  1964. 17 6
  1965. 0 6 "[16423][16423]"
  1966. 17 7
  1967. 2 635 1
  1968. 17 8
  1969. 0 6 "[16421][16421][16421]"
  1970. 6 0
  1971. 15
  1972. 17 9
  1973. 9
  1974. 14 ChkHoliday
  1975. 29 0 TMon
  1976. 29 1 DayNum
  1977. 29 2 mond
  1978. 29 3 Year1
  1979. 29 4 ChkHoliday
  1980. 17 1
  1981. 29 5 HolSty
  1982. 17 2
  1983. 29 6 leap
  1984. 17 3
  1985. 29 7 dm
  1986. 17 4
  1987. 29 8 dm2
  1988. 17 5
  1989. 6 0
  1990. 5 100
  1991. 4 0
  1992. 6 1
  1993. 3 0
  1994. 8 7
  1995. 17 6
  1996. 6 7
  1997. 6 2
  1998. 3 1
  1999. 8 8
  2000. 17 7
  2001. 7 "ô·ùjô·"
  2002. 8 5
  2003. 17 8
  2004. 6 0
  2005. 5 3
  2006. 18 0
  2007. 6 0
  2008. 5 9
  2009. 18 0
  2010. 1 2
  2011. 11 00000653
  2012. 17 9
  2013. 6 7
  2014. 5 915
  2015. 18 0
  2016. 6 8
  2017. 5 915
  2018. 18 0
  2019. 1 2
  2020. 11 00000384
  2021. 17 10
  2022. 2 323 1 "{5}"
  2023. 10 00000640
  2024. 17 12
  2025. 16 CheckLeap "{3}"
  2026. 13
  2027. 8 6
  2028. 17 13
  2029. 6 6
  2030. 5 29
  2031. 18 0
  2032. 11 00000511
  2033. 17 14
  2034. 6 7
  2035. 5 1
  2036. 3 1
  2037. 8 7
  2038. 17 15
  2039. 6 8
  2040. 5 1
  2041. 3 1
  2042. 8 8
  2043. 17 17
  2044. 6 7
  2045. 5 320
  2046. 18 0
  2047. 6 8
  2048. 5 320
  2049. 18 0
  2050. 6 7
  2051. 5 923
  2052. 18 0
  2053. 6 8
  2054. 5 923
  2055. 18 0
  2056. 1 2
  2057. 1 2
  2058. 1 2
  2059. 11 00000640
  2060. 17 18
  2061. 2 323 1 "{5}"
  2062. 10 00001158
  2063. 17 22
  2064. 6 7
  2065. 5 101
  2066. 18 0
  2067. 6 8
  2068. 5 101
  2069. 18 0
  2070. 6 7
  2071. 5 115
  2072. 18 0
  2073. 6 8
  2074. 5 115
  2075. 18 0
  2076. 6 7
  2077. 5 211
  2078. 18 0
  2079. 6 8
  2080. 5 211
  2081. 18 0
  2082. 6 7
  2083. 5 429
  2084. 18 0
  2085. 6 8
  2086. 5 429
  2087. 18 0
  2088. 6 7
  2089. 5 503
  2090. 18 0
  2091. 6 7
  2092. 5 504
  2093. 18 0
  2094. 6 7
  2095. 5 505
  2096. 18 0
  2097. 6 8
  2098. 5 505
  2099. 18 0
  2100. 6 7
  2101. 5 1010
  2102. 18 0
  2103. 6 8
  2104. 5 1010
  2105. 18 0
  2106. 6 7
  2107. 5 1103
  2108. 18 0
  2109. 6 8
  2110. 5 1103
  2111. 18 0
  2112. 6 7
  2113. 5 1123
  2114. 18 0
  2115. 6 8
  2116. 5 1123
  2117. 18 0
  2118. 6 7
  2119. 5 1223
  2120. 18 0
  2121. 6 8
  2122. 5 1223
  2123. 18 0
  2124. 1 2
  2125. 1 2
  2126. 1 2
  2127. 1 2
  2128. 1 2
  2129. 1 2
  2130. 1 2
  2131. 1 2
  2132. 1 2
  2133. 1 2
  2134. 1 2
  2135. 1 2
  2136. 1 2
  2137. 1 2
  2138. 1 2
  2139. 1 2
  2140. 1 2
  2141. 1 2
  2142. 1 2
  2143. 11 00001158
  2144. 17 29
  2145. 2 323 1 "{5}"
  2146. 6 4
  2147. 15
  2148. 17 32
  2149. 9
  2150. DIALOG Heymon
  2151. -2134376448 6 94 46 136 50 "" "" "îÄè╘╢┌▌└▐░" 
  2152. FONT 8 "System" 
  2153. 4 12 26 9 1000 1342177280 "static" "îÄ :" 0 
  2154. 4 28 22 9 1001 1342177280 "static" "öN :" 0 
  2155. 28 10 52 80 9500 1344339979 "combobox" "" 0 
  2156. 28 26 52 80 9501 1344339979 "combobox" "" 0 
  2157. 90 9 40 13 1 1342242817 "button" "OK" 0 
  2158. 90 25 40 13 2 1342242816 "button" "╖¼▌╛┘" 0 
  2159. 00022747
  2160.